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ZTITLE "MOM Network 1/0 module’ 
MODULE MOMACPIO ( 


3 1 $ 
; ‘ LANGUAGE (BLISS32) ; 
iat ADDRESSING RODE (NONE XTERNAL=GENERAL), F 
‘ae ADD DRES SING MOD 3 (EXTERNAL=GENERAL) , ; 
: § D ENT = 'y04-000' : 
: 8 1 BEGIN r 
: 19 i leaneeeeeerencenenenrenneneseneeererererntreteetentnesnnntnennentnennennees : 
° ;* ° 
: i 1g J i COPYRIGHT (c) 1978, 1980, 1982, 1984 By : : 
.-¥ 15 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * ; 
r i 1 : 7? ALL RIGHTS RESERVED. * 3 
° . we ° 
: 16 16 1 ie THIS SOF TWARE Is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * F 
: #17 901 1 ie Y IN ANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ; 
: #18 18 1 ie INCLUSION. OF . ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ; 
: 19 0019 1 '* COPIES THEREOF may NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
; 20 0020 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
; 1 00 1 ie TRANSFERRED. e : 
Py :* * Py 
3 5 00 i 1 is THE INF ORMAT ION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
a 4 1 ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
; 3 90 5 ie CORPORATION. ‘ 3 
; wT 00 $ 1 i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 
; g 99 8 is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. e : 
: 30 0030 1 ie & : 
3 1 itd : i eeereerereeerereaieeeeeeeeeerereteeereteeeeereeeeeeeeeeeeeeeeeeeeeeeeeeeeee é 
: i 00 : 1 !+4 : 
; ¢ 4+ ¢ } FACILITY: DECnet-VAX Network Management Maintenance Operations Module (MOM) : 
; 0036 1 | ABSTRACT: : 
3 0037 1: This module contains routines to handle all network 1/0 3 
; 8 0038 with NETACP (NETDRIVER)- ; 
; 40 0040 ENVIRONMENT: VAX/VMS Operating System : 
; 4¢ 0042 AUTHOR: Kathy Perko 3 
; 44 si CREATION DATE: 11-Jan-1983 3 
a 046 1 | MODIFIED BY: : 
; 4 Boer 1! v03-001 yg Kathy Perko 2-June-1983 3 
: 48 bee 1! Fix code that maps sareneter IDs from NETUSR values é 
: $3 sr ' i to NICE values. : 
: 51 0051 ij i- ; 
: 52 052 1 : 


4 
MOM Network 1/0 module 15-Sep-1984 91:29:33 AX-11 Bliss-32 a EN od Page 
14-Sep-1984 12:44:29 DISKSVMSMASTER: CMOM.SRC JMOMACP10.832;1 (2 


2 
Declarations ) 


S23 


} 

| 
3 ¢ } ZSBITL ‘Declarations’ : 
; 1! ; 
3 ! TABLE OF CONTENTS: : 
; ‘ : 
: 60 1 FORWARD ROUTINE ; 
3; «66} 60 1 mom$build_p2: NOVALUE, ‘ 
3 $6 1 mom$netacp_qio, . 
; 6 : 1 mom$mapqioerror, 
> «664 65 1 mom_mapent ty. 
3; 8 : ! mom_mapparamid; 
: 8 6 1! 
3 6 . ! INCLUDE FILES: 
: 70 9 1 
eS ae 43 0 1 LIBRARY ‘LIB$:MOMLIB'; ! Facility-wide definitions 
ta 71 1 LIBRARY 'SHRLIBS:NMAL IBRY’; i NICE definitions 
3 7 po78 1 LIBRARY ‘SHRLIBS:NET'; ' NETACP Q10 interface 
: 3 4 : LIBRARY *SYSSLIBRARY: STARLET’; ! VMS common definitions 
: 76 ey 
$ 7 76 1 ! OWN STORAGE: 
oy, 77 (1! 
; 7 $78 1 
3 0 44 1! 
: 39 : : EXTERNAL REFERENCES: 
; > 
3 ¢ ‘ | Smom_externals; 
; 5 1 EXTERNAL 
: 7 $6 1 mom$gq_netnamdsc, 
3 : 44 \ mom$gw_acp_chan; 
> 90 89 1 EXTERNAL LITERAL 
3 4 ay ' mom$_qiobfovf; 
: 38 é 1 EXTERNAL ROUTINE 
: 9% 1 mom$debug_qio, 
: 1 mom$bid_reply; 
3; 95 1 

i 
| 


& 
P10 MOM Network 1/0 module 18-5 1984 01:59:39 VAX-11 Bliss-32 V4.0-74 P 
yoe-000 monSbui ld. p2 Build P2 buffer and descripto 1 n350= 1382 9:22:38 DISKSVMSMASTER: COM. SRC MOMACP10.832;1>— (3) 


ZSBTTL snoateytlép2 uild P2 buffer and descriptor’ 
GLOBAL ROUTINE momSbuild_pée (lenl, adri, lend, adr2, pédsc, resdsc) : NOVALUE = 


32 


tee 
! FUNCTIONAL DESCRIPTION: 


This routine builds the P2 buffer and descriptor for operations to 
NETACP. The buffer contains one or two search key values. These 
values ore fonweree to fields in NETACPs database entries (the database 


Mme uwrTy 


] 
} 
! 
| 
| 
| 
FORMAL PARAMETERS: | 


the buffer is lores enough to handle the result. 
The maximum P2 buffer required by NML is 36 bytes. 


RESDSC Address of descriptor to hold resulting P2. 


IMPLICIT OUTPUTS: 

The buffer described by P2DSC contains the search key and 

start key information. 
| 
| 
| 


! 
' 
i 
! 
5 H and the f (search keys) are specified in the NFB buffer). When 
; an entry is found in which the specified field(s) match the search 
: key value(s), NETACP performs the operation requested by the rest of 
14 the NFB (set, snow, etc.) 
' 
13 
V4 : LEN! First search key Length. If LEN! is: 
15 : = zero then ADR1 contains a longword search key. 
18 : - >0 it contains the length of a string which 
1 ' ADR1 points to. 
18 : - -1 then search key ID is a wildcard, and nothing 
19 : needs to be put into the P2 buffer for it. 
0 : = -2 then ADR1 contains a word search hey. 
1 : ADR1 First search key address. If LEN1 is zero then this 
¢ : is the longword value of the search key. If LEN1 is -1 then 
: the search key is omitted. 
: LEN2 pecene search key length. Same rules apply as for 
$ ADR2 zecend search key address. Same rules apply as for 
‘ ress 0 escriptor. s routine assumes that 
8 P2DSC Add f P2d i Thi i h 
' 
i 
i 
i 
i 
i 
i 
i 


BEGIN 

MAP 
p2dsc : REF VECTOR, 
resdsc : REF VECTOR; 


collate_start_value: VECTOR Cnfb$c_ctx_size, BYTE] 
INITIAL ( REP nfb$c_ctx_size OF BYTE (0)); 
msgsize, 
count, } Ps buffer length 
ptr; ! P2 buffer pointer 
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PIO MOM Network 1/0 module 7:59:39 VAX-11 Bliss-32 V4.0-7 P 4 
you~ 000 mom$bul la. p2 Build P2 buffer and descripto 1$-sep-1964 9}: 244: :39 DISKSVMSMAS TER: CMOM. SRC CSmomacP10.832¢1°° (3) vt 
155 ' Calculate the length of the resulting P2 buffer, and signal if 
é ; the buffer supplied isn't big enough: : ~ . 
§ $ count = 4; ! Account for count at beginning of buffer. 
selec Toe -leni OF 

$0 § afr'c count = .count + 42 ' It's a word 

6¢ $9 9 gyn Ay count + ' It's a longword 

6 to 255): count = camel + .leni + 2 ! It's a string. 

¢: 86 TES; 


SELEE TONE -len2 OF 


o§:° count = .count + 2; ! It's a word 
0 coun * count + 4; ' It's a longword 
fes* to count = .count + .len2 + 2 ! It's a string. 


IF -count t GTR .p2dsc TREN 


The P2 buffer will overflow. Signal a MOM error. 


BEGIN 

mom$ab_msgblock (msb$l_flags] = msb$m_msg_fid; ! Set message text flag. 

mom$ab_ omoupreck msb$b =code} = nma$c aats mpr; 

monte. meperect msb$l_text] = mom$_diobfovf; 

repl H (mom$ab_msgblock, msgsize); 
m 


' Build message 
Bs tgnal msg Si 


' 
om$ab_nice_xmit_buf, .msgsize); ! Signal it. 


ptr = .p2dsc (1) + 4; ! Skip over return count 


A 
: Add first search key value to the P2 buffer. 


SELECTONE .len1 OF 


ae ae ee ee ee a ee ed ed dd ed ed 


SS SESSSESN SS SB SSS ROS LSSELS OPERAS ISSN IS SS 
SELES PES SSSELEA RANE NNI SSeS 


2): ptr = CHSMOVE (2, adri, ptr); ' It's a word 
03: ptr _= CHSMOVE (4, adri, .ptr); ' It's a longword 
1 To 2352: ! It's a string. 
CHSWCHAR_A f-tent<e. >, ptr); 
CHSWCHAR-A (.lenl<8,8>, ptr); 
per = CHSMOVE fcr ‘adri, .ptr); 
TES; 
01 ' 
4 Add search key two to buffer. 
4 SELECTONE .len2 OF 
05; ofr = CHSMOVE (2, adr2, pte); ' It's a word 
fib =  CHSMOVE (4, adr2, .ptr); ! It's a longword 
! It's a string. 


FIEND at ak tk i kt ho od od ad a DDD 
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count = .count + nfoss ste size; 
| 
| 
| 
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work 1/0 modu 1b-5e 1 9 VAX-11 Bliss -32 v4.0- 
(a p2 Suita P2 buffer and descripto 1 at 922 :39 DISK$V meMA TER: CMOM. SRCSMOMACPIO.83204°" 31 (3) | 


] 

| 

CHSWCHAR <A f -len $B. e- ptr); | 
CHSWCHAR-A gten <8,8>, ptr); 
pr rs cnSmove end, .adr2, .ptr); 
| 

| 


TES 


' 
' Set up a context area of a Baty of nulls. NETACP will 

! replace the null string with a start value of the last database 
entry matched by the search key. 

ptr = CHSMOVE ( nfb$c_ctx_size, collate _start_value, .ptr); 

Set up resulting descriptor for return. 


resgec £0} = -pic.c epgise C12: 


END; ! End of mom$build_p2 
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-TITLE MOMACPIO MOM Network 1/0 module 
-IDENT \v04-000\ 


-PSECT SOWNS,NOEXE,2 


00# 00000 COLLATE_START <VALUE i 
-BYTE 64) 


z 

3 

J 

a 
 VUVOBww=xxKQ 
BP pat $$ ft -F 3) 


-EXTRN MOMSGL_LOGMASK, MOMSGL_SVD_INDEX 
-EXTRN MOMSAB-SERVICE DATA 
-EXTRN MOMS$GB_FUNCTION 
-EXTRN MOMSGB_OPTION_BYTE 
-EXTRN MOMSGB_ENTITY~CODE 
-EXTRN MOMSAB_ENTITY—BUF 
-EXTRN MOMS$GQ"ENTITY-BUF_DSC 
-EXTRN MOMSGL-SERVICE FLAGS 
-EXTRN MOMSAB-NPARSE BLK 
: N MOMSAB_NICE_RCV_BUF 
-EXTRN MOMSAB_NICE_XMIT_BUF 
-EXTRN MOM$GQ"NICE-RCV_BUF_DSC 
-EXTRN MOMSGL-NICE-RCV-MSG_LEN 
-EXTRN MOMSGQ"NICE-XMIT_BUF_DSC 
-EXTRN MOMSAB_MSGBLOCK ~ 
TRN MOMSAB-ACPQIO_BUFFER | 
TRN MOM$GQ-ACPQIO-BUF DS 
RN MOMSAB_CIB, MOMSAB_LOOP_CIB 
N MOMSAB-TRIGGER CIB 
RN MOMSAB_MOP_XMIT_BUF 
N MOMSGQ"-MOP~XMIT~BUF _DSC 
N $GQ-MOP BUF _DS 
} 
| 
| 
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A 
I 
PCNO_A 
PCNO-S 

“PCHO-C 
PCNO-S 
PCNO-D 
PCNO-D 
PCNO-I 
P 
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1 Olisse 32 es 
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XTRN SVDSEK LI-ST 
XTRN SVDS$C enTRee COUNT 
XTRN ROMSGU_NET NAR 
XTRN MOMS$GW-ACP_C 
MOMS aToer Vr. MOMSDEBUG_Q10 
-EXTRN MOMSELD 


»PSECT SCODES.NOWRT, 2 


00 sENTRY MOMSBUILD P2, Save R2,R3,R4,R5,R6,R7,R8 ; 0097 
2 pay nensa8 MSGBLOCK, R8 


MOVL a4 , Count 

R2 

cHPL b : a. 2 

ADDL2 #2, COUNT 
B 3$ 

1$: TSTL =R 


Q 2 
ADDL2 #4, COUNT 
B 3$ 


MmMmMmMmMmMmMmMmmMmmmmmMMmmMmmMmmmmmemmmmenmemmmnmen 
=< >< DK DC OE OK OK DE DK DK OK OK 
“4 444 43444 
» 

2 
7 
< 
.~J 
A 
a 
x 
wv 
oO 
2 
So 
Sad 
—J 
> 


So 

_ 
m 
=< 
—_ 
» 
2 


739 2-9 00907on7 


=ONNn—On—Conmmon 


000000006 69 


: 
: 


Oooo 


SoOoOooooooooooo 


04 
FFFFFFFE 


py ty teers ay te 9 4 


N 4 | 
ACPIO MOM Ne grt, 1/0 modu 16-Sep-1984 9  VAK-11 Bliss-32 V4.0-74 Page 7) 
y00-000 mom$ build. Suita P2 buffer and descripto 12: -Sep- et 93:22 :39 DL SKSVMGMASTERSCHOM. SRCIMOMACPIO.B32°4° on 
15 A 2S: BLEQ = 3 : 0161) 
OOOOOOFF BF i pi CPL a. #255 : 
02 A260 9 MOVAB 2(2)CcQUNTI, COUNT ' | 
C At D A 3%: MOVL LEN R : 0164 
FEFFFFFE  &F i p i cMPL He b-2 : 0166 
50 cb 4 ADDL2 #2, COUNT : 
1 1 GA BRB 6 : 
57 05 0004C 4$: TSTL = + 0167 
50 02 t 008 ONEL2 Be. COUNT : 
0 f $2 BRB 6$ : 
OF 15 00055 5s: BLEQ 6$ : 0168 
QOOO0OFF BF 3 pi 909 CPL Ry. #255 : 
50 02 A740 9E $086 MOVAB 2(R7)CCOUNT], COUNT : 
50 40 AO 4 0065 6$: MOVAB 64(RO), COUNT + 0171 
56 14 AC 00 00069 MOVL  P2DSC, R6 : 0172 
66 50 01 60060 CMPL — (R6) : 
3 15 00070 BLE $ : 
68 4 00 0078 MOVL , MOMSAB MSGBLOCK : 0177 
04 AB 05 BE 07 MNEGB a3. MOMSAB~MSGBLOCK+ : 0178 
OC A8 000000006 8F D0 00079 MOVL #MOMS Q1OBFOVF, ROnsAB _MSGBLOCK+12 + 0179 
4100 8F 688 00081 PUSHR oie Sn° SP> : 0180 
000000006 00 02 FB 00085 CALLS #2, MOMSBLD_REPLY : 
6E D 900 c PUSHL MS : 0181 
000000006 00 9F O00BE PUSHAB MOMSAB NICE_XMIT_BUF ; 
02070000 8F DD 00094 PUSHL 4013784 ; 
000000006 00 03 FB OO0SA CALL 4s, LIBSSIGNAL ; 
3 4 Ab 94 C1 000A1 7$: ADDL3 #4. 4(R6), PTR + 0184 
FFFFFFFE 8F 32 b O0AG CMPL LS ; 0191 
83 08 AC 46 OOOAE MOVW ADR1, (PTR)+ : 
1E 11 00083 BRB 10$ : 
52 05 00085 8$: TSTL = R2 : 0192 
06 iF 00087 BNEQ 9$ ; 
83 08 AC DO 00089 MOVL ADR1, (PTR)+ F 
14 11 9008p BRB 10$ : 
12 15 OOOBF 9$ BLEQ 10$ > 0193 
aan ge ML See Gabe #25 : 
83 06 A 0 OOCA MOVW LENT, (PT : 0195 
3 08 BC 3 ce MOVC3) Re, @ADR1, (PTR) : 0197 
FFFFFFFE 8F 3? D} D3 10$: cHPL Rr h-2 ; 0206 | 
83 10 Ac 06 $00 MOVW ADR2, (PTR) + : | 
IE 1 O00E BRB 13$ : 
57 D OE 11$: TSTL = R? : 0207 
06 12 OO0E4 BNEQ 12$ ; 
83 10 AC D SEG MOVL ADR2, (PTR)+ ; 
14 1 EA BRB 13$ ; 
13 19 OoeC 12$ BLEQ 13$ : 0208 
QOO000FF 8F 3? pi ans CPL Re, #255 : 
ae Oc A OF MOVW  LEN2, (PTR)+ ; 
63 10 BC af BS OOFB MOVC3 RS SADR2, (PTR) : 


oo 
rr 
j at a 
mo 


yoenO0- mamsbulta po” "Bult P2 butter and ae 18-00-1944 93:22:38 BES cbinGmAS TERS choMCsRESMoMacPi0.83209%° «38 


“ 00000000° 0049 BF 2 0 138: MOVC3 w64 COLLATE START_VALUE, (PTR) ; 9 31 
1 Bf MOVL 6s¢, : 
04 A 19¢ su UBL atts be pre (RO) : 

Ad 4 Ab O11 MOVL  4(R6). 4(RO) > 0226 

4 00118 RET + 0228 


; Routine Size: 281 bytes, Routine Base: $CODE$ + 0000 
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MOMACPIO MOM Network 1/0 module 1b-se 1984 01:59:39 VAX-11 Bliss-32 V4.0-74 Page 9 
yoa-000 mom$netacp_qio General network Q10 routine 127808- 1382 93:22 338 DI SKSVMGMASTERSCMOM. SRCIMOMACPIO.832¢4° (4) 
; ¢ 0229 1 XSBTTL ‘mom$netacp.qio General network Q10 cous ge 
; ? 0 9 ! GLOBAL ROUTINE mom$netacp_qio (nfbdsc, p2, p3, bufdsc) = 
: 235 ; 1 !4¢ 
; § ? ! FUNCTIONAL DESCRIPTION: 
; 8 > Ff This routine issues Q10 function requests to NETACP to perform 
3 4 8 : ! volatile data base operations. 
s re. 8 3 : FORMAL PARAMETERS: 
3; 26 8 40 1! NFBDSC Descriptor of NFB data. 
> 244 41 1! P Descriptor of P2 data. 
> 245 0 g 1! P Address of word to contain resulting length. 
; 246 0245 1! BUF DSC Descriptor of data buffer 
3; 247 osee 1! 
: 48 0245 1! IMPLICIT INPUTS: 
: 249 pete 1! 
3 $20 ogee : MOMSGW_ACP_CHAN Channel assigned to the command process Link. 
: $26 0249 1 ! IMPLICIT OUTPUTS: 
3 $2 0250 1! 
> 254 0251 1! NONE 
3 ge 0536 1! 
; 256 0253 1 ! ROUTINE VALUE: 
3s gor 0254 1 ! COMPLETION CODES: 
; 258 0255 1! 
; 259 0256 1! This routine returns an MOM status code that has been mapped from 
: 260 0257 1! the Q10 status code. 
; 261 0258 1! 
; $06 0259 1 ! SIDE EFFECTS: 
; 26 0260 1! 
: 264 0261 1! NONE 
: 265 pse¢ 1! 
; 266 0263 1 !-- 
3; 267 0264 1 
: 268 0265 BEGIN 
: 269 0266 
; so 0267 MAP 
: e7i 0268 nfbdsc : REF VECTOR, 
; $f6 0269 bufdsc : REF VECTOR; 
B <r 0270 
: 74 0271 LOCAL 
3; 275 pe7¢ iosb : Siosb, ' 1/0 status block 
; 276 027 database, ' Database ID 
: As Os he , ‘Status; ! Temporary return status 
; 279 0976 ! If it hasn't already been done, establish channel to NETACP for Q10 control 
: 280 027 i functions. The channel is to NET:, the pseudo device to which volatile 
: «281 78 ! database commands are issued. Doing the assing here allows NCP commands to 
: a6 the permanent data base to be processed even if NETACP is not mounted. 
; 284 1 status = ss$_normal; 
; «285 § IF “monSqu_atp chan EQL 0 THEN 
; a6 ig status = SASSIGN(DEVNAM = mom$gq_netnamdsc, 
; 28 4 AN = mom$gw_acp_chan); 
; 288 5 IF .status THEN 


SS — 


d 5 
ACPIO MOM Network 1/0 module 16-Sep-1984 01:59:39 VAX-11 Bliss-32 V4.0-74 p 1 
yO4-000 mom$netacp_qio General network Q10 routine 12-88-1382 94:32:38 DLSKSVMSMASTERCMOM. SRCIMOMACPIO.B32-4°" lS 


: 88 $ BEGIN ; 
: 391 8 i Issue the Q10. ; 
: 3 P 0290 Status = $Q10W (CHAN = .mom$gw_acp_chan, | Channel | ; 
; 296 P 0291 FUNC = io$_acpctontrol, ' Function ; 
; 295 Pp 3 10SB = ios6, ! 1/0 status block ; 
: 4 P 029 Pl = .nfbddsc, ! Pl descriptor (NFB) ; 
: 2 P 0294 rs = .pe, ! P2 descriptor (component id) : 
; 298 P 0295 P = Pp ! Address for resulting Length : 
; 9 0 36 P4 = jbufdsc); i P& (data buffer) descriptor : 
3 03 4 ! Log the Q10 function. ; 
: 30 00 mom$debug_qio (dbg$c_acpqio, ! Log type cod ; 
: 304 0301 an ste ! Qi stotus welue : 
s 305 Bang osb, ! Address of 1/0 status block ; 
; 306 030 -nfbdsc, ' NFB descriptor : 
3 $05 0304 BE. ! P2 descriptor ; 
; 308 0305 P " ' Address of P3 word ; 
; 309 Bene ‘ ufdsc, ! Data buffer descriptor : 
; 19 trt4 ; SASCID("SET, SHOW, or CLEAR NETACPs database')); : 
3 \¢ teh Map the operation status into an MOM code. 
; 3 oat) database = .bblock C.nfbdsc C1], nfb$b_database]; 
; 18 0318 status = mom$mapqioerror (.database, .status, iosb); 
; 318 0315 Return the mapped status code. 3 
; 320 0317 RETURN .status ; 
: 322 0319 1 END; ! End of mom$netqio ; 
-PSECT $PLIT$,NOWRT ,NOEXE ,2 3 
43 20 72 6F 20 2C 57 4F 48 53 20 2C 54 45 53 Q0000 P.AAB: .ASCII \SET, SHOW, CLEAR NETACPs database\ 3 | ; 
61 6 20 73 50 43 41 54 45 SE 20 gS at 28 22 BBooe a ee 
6 61 62 61 74 OOOIE 3 5 
sae ta: BnoS8 P.AAA: .LONG 36 : 3 
00000000' 00028 ADDRESS P.AAB 3 | : 
.EXTRN SYSSASSIGN, SYSSQIOW | ; 
.PSECT SCODE$,NOWRT,2 | ; 
001¢ .ENTRY MOMSNETACP_QIO, Save R2,R3.R4 ; 0230 : 
3 000000006 9 MOV at atl aa RG 3 s 
C SUBL #8, SP ; 3 
5 D be MOVL #1, STATUS 3 os8) é 

9 9 f TSTL MOMSGW_ACP_CHAN ; 82 

4 1 BNEQ : 
7E 7C¢ 1 -(SP) ; 0284 
54 DD 0001 R4 3 


000000006 9 


; Routine Size: 
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mom$netacp_qio General network Q10 routine 
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5 
0 
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Routine Base: 


VAX-11 Bliss-32 V4.0-7 
DISKSVMSMASTER: (MOM. SRC MOMACPIO. B32:1 


MOM$GQ_NETNAMDSC 
a, SYSSASSIGN 
RO, a ; 


> 


#56 
MOMSGW_ACP_CHAN 
=(SP) 


AAEM EE & & EE 
NOV WOLMD &vomMmwgo 


i, pore EBUS. Ql0 


COWIMOMBWEWMMNOOOOOM Sommnroa 


R3,SP> 
‘3 “ROSMAPGTOERROR 
0, STATUS 


ooooo 


SCODES + 0119 


MEW —OOONOUSE 


he 
wes 
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code = nma$c_sts_ope; 
detail = -1; 
flags = msb$m_det_f ld; 
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X-i1 Bliss 
SKSVMSMAST 


ZSBTTL nousngpetoerror Map Q10 error to MOM error’ 
GLOBAL ROUTINE mom 


apqioerror (database, qiostatus, iosb) = 


+ 
FUNCTIONAL DESCRIPTION: 
This routine translates Q10 errors into network management 
errors and makes the appropriate entries in the message 
ock. 
FORMAL PARAMETERS: 
DATABASE Database ID 
QIOSTATUS Q10 status return. 
10S8 Address of 1/0 status block. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 


MOMSAB_MSGBLOCK contains the appropriate error code and detail 
if applicable. 


ROUTINE VALUE: 
COMPLETION CODES: 


The return status is the MOM error that corresponds to the Q10 error. 
SIDE EFFECTS: 
NONE 


BEGIN 


Pp 
josb : REF $iosb; 


LOCAL 


code : BYTE, ' NICE status code 
detail : WORD, ' NICE detail code 
flags, ' Message flags 
status, ' Return status 
text; ! Optional text code 


Set up the default message information. 


Management program error 
No detail 
Detail flag 


Check the Q10 status and the 1/0 status block. 
if NOT .qiostatus THEN 
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MOM Network 1/0 modul 
mom$mapqioerror 


ELSE 


e 18 4 01:59:39 VAX-11 Bliss-32_ V4.0-7 
Map Q10 error to MOM error 1 30571 38c 93:22:38 DISKSVMSMASTER: CMOM. SRC MOMACP10.832:1 


BEGIN 
! The Q10 was in error. This indicates a program or a system error. 
"text = “Glpstotys: ! Use system message as optional text 
flags = .flags OR ; Defau t flags . . : 
msb$m_msg_fid; ! and optional text 
status = ~teilares” ! Return status 
END 
BEGIN 


i The Q10 status was successful so check the 1/0 status block. 
! If it indicates success the just return. Otherwise, attempt to map 
the error code to an MOM error code. 


if .iosb Cios$w_status] THEN 
RETURN success; 


SELECTONE .iosb Cios$w_status] OF 


ae ere ! Missing parameter 
code = nma$c_sts_pms 

detail = mom “mapparamid (.iosb Cios$l_info]); 

A a = failure; 


Css$ gedperan 
ss$_devacti ived: 
“BEGIN 


! Parameter value error 


code = nma$c_sts_pva 
detail = mom “maodorenté (.iosb Cios$l_info]); 
status = failure; 


host yr iztenss ! Component in wrong state 
code = nma$c_sts_sta 

detail = mom “mapéntity (.database); 

status = failure; 


Css$_insfmem): 
BEGIN 
code = nma$c_sts_roo; 
status = failure; 


Css$_endoffile]: 
BEGIN 


code = nma$c_sts_ 56m 
detail = mom_mapentity (.database); 
status = nmaSc_sts_cmp; 


! No room for new entry 


! Unrecognized component 


<= 
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MOM Network 1/0 module 16-Sep =13% 91:39 +33 VAX-11 Bliss-32 V4.0-7 46 Pa age 14 
mom$mapqioerror Map Q10 error to MOM error 14-Sep-19 9 DISKSVMSMASTER: CMOM. SRC JMOMACPIO. B832;1 (5) 
: ; Css$ arepe iva: ! Privilege violation 

4 code = nma$c_sts_pri; 

4 status = failure; 

; END; 

Css$_nosuchdev]: ! No such device 
BEGIN 


4 
4 code = nma$c_sts 56m: 

4 detail = mom_mapentit 

4 text = .iosb Cios$w_status 

4 flags = .flags OR msb$m _msg_fld; 
sta tus = failure; 


Css$_devinact): ! Device inactive 
4 BEGIN 
4 code = nma$c_sts_sta; 
4 detail = mom “mapparamid (.iosb Cios$l_info)); 
4 text = .iosb Cios$w _statusJ; 
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0454 4 flags = .flags OR msb$m_msg_fld; 
0455 4 status = failure; 
bee END; 
045 Css$_ivdevnam]: ! Invalid device name. 
0459 4 BEGIN 
Bee 4 code = nma$c_sts_ide; 
61 4 detail = mom “mapentity (database); 
0462 4 text = .iosb Cios$w _status]; 
0465 4 flags = -tiegs 0 4, msb$m_msg_fld; 
0464 4 status = failure 
046 END; 
eg 
046 Css$_nolicense): ! Customer doesn't have a 
Beek 4 BEGIN 
69 4 code = nma$c_ 
0470 4 text = .iosb” loree. stetus): 
0471 4 flags = .flags OR mSb$m_msg_fld; 
B28 4 status = failure; 
a ; END; 
75 COTHERWISE): ! Operation failure 
ane mt my st 
code = nma$ 
78 4 detail = -iosb ETossl info); 
79 4 text = .iosb ios$w_sfatus 
0 4 flags = - hogs 0 
1 4 _msg_fld; 
§ 4 status = "teilures” 
4 END; 
5 TES; 
" END; 
: Set up the message information. 
mom$ab_msgblock [msb$i_flags] = .flags; 


| 
| 
(database); 
| 


5 
PIO MOM Network 1/0 module 1b-se =1984 59:39 VAX-11 Bliss-32 V4.0-74 b 
YO0-500 mom$mapqioerror Map Q10 error to MOM error 1 ~300 71382 94:22:38 DISKSVMSMASTER: CMOM. SRC MOMACPIO.B32:1"— 6 
; 495 1 mom$ab_msgblock ([msb$b_code = ,code; 
3 $36 $4 mom$ab-ms gb Lock frsbéycdetes 3 = idetail; 
; rp 4 mom$ab_msgblock msb$i_text = ,text; 
; t9s 3¢ Return the mapped status. 
; i) $F RETURN .status 
§ 8 38 END; ! End of mom$mapqioerror 
O7FC 00000 ENTRY ee TTcennen Save R2,R3,R4,R5,R6,R7,R8,-; 0321 
A 9000000v 9E 9002 MOVAB MOM_MAPPARAMID, R10 : 
9 00000000V 9E 000 MOVAB MOM MAPENTITY, RO : 
8 000000006 9€ 0001 MOVAB MOWSAB MSGBLOCK, R8 : 
4 1 8E 0001 MNE #25, CODE 3; 0370 
7 8 A Bata MNEGW #1, DETAIL 3; 0371 
5 2 00 00010 MOVL #2, FLAGS 3 0372 
07 08 AC €E8 00020 BLBS  QIOSTATUS, 1$ ; 0376 
6 0 AC g 0024 MOVL SISSTATUS. TEXT ; 038 
OOBA 31 00028 BRW 19$ 3; 0382 
52 oc as 4 38 B 1$ MOVL 10SB, R 3 0394 
2 6 E 002F BLBC (R2), 2 ; 
0 1 00 000 2 MOVL #1, RO > 0395 
4 000 RET : 
0114 ~=«=8F §¢ B1 00036 2$: CM (R2), #276 3; 0399 
12 000 BNEQ 3$ 3 
54 1D of 3 D MNE #29, CODE 3; 0401 
14 ob Bt bo0d> 38 ore, tke). #20 bebe 
$$ #3 boes BEQL 4S : 
02c4 =s BF 62 861 00047 CMP (R2), #708 3 
0B 12 0004C BNEQ 6$ : 
54 1 8E OO04E 4$ MNEGB #16, CODE 3; 0409 
04 A2 dD 0051 5$ PUSHL  4(R2) : 0410 
6A 01 FB 00054 CALLS #1, MOM_MAPPARAMID : 
19 11 00057 BRB 7$ 3 
025C + 28F 62 861 Oboe 6$: CMPW (R2), #604 3 0414 
3 12 5 BNEQ Bs : 
54 B 8E MNEGB #11, CODE é ad 
04 AC OD PUSHL DATABASE 3; 041 
9 1 fe eg CALLS #1, MOM _MAPENTITY : 
7 0 ° 0 7$: MOV RO, DETAIL 3 
A 1 00 BRB : 0418 
0124 8F $e 2 ° 8$: CMPW (R2), #292 : 0421 
2 BNEQ $ : 
54 14 oF 7 MNEGB oso CODE 3: 0423 
6 7 BRB $ 3 0424 
0870 =—s«aBF ° 2 7A 9$: CMP Re) #2160 : 0427 
2 7F BNEQ 1 3 
54 08 8E 1 MNEGB #8, CODE : On88 
04 AC OO PUSHL DATABASE : 0430 
69 01 FB 7 CALLS #1, MOM_MAPENTITY ; 


a 


5 
MOM Network 1/0 modul 18-5 1984 01:59:39 AX-11 Bliss- 4.0-74 P 
mom$napaio “ * 3h 93522338 DI SKSVMSMASTER-CMOM-SRCIMOMACPIO.B32°4°° 


voe-600" 


oerror Map Q10 error to MOM error 14-Sep-1 
5 B A mMOVW = RO, -~DETAIL : 
: MNEGL #8. STATUS : 
BRB 2 ; 
24 } 92 10$ CMPW 3S s«(R2), #36 : 
9 BNEQ 1 : 
54 F 2 MN #3, CODE : 
4 A BRB 20$ ; 
0908 aF } 9C 11$: CMPW (Re), #2312 : 
A BNEQ le : 
54 F A MNEGB #8, CODE ; 
§ ab BRB 14§ ; 
2004 «BF 8 12$ CMP (Re), #8404 : 
AD BNEQ 13 : 
54 BE OOOAF MNE #11, CODE ; 
04 A2 DD 0008 PUSHL  4(R2) ; 
6A ¢ re B CALLS #1, MOM_MAPPARAMID : 
: 1 BRB 15$ ; 
0144 «BF 8] A 13$ CMP (Re), #324 : 
E 2 000BF BNEQ 1 ; 
54 8E 000C1 MNE #9, CODE F 
06 AC DD 000C4 14$:  PUSHL DATABASE ; 
9 QI FB (7 CALLS #1, MOM _MAPENTITY ; 
7 @ CA 15$: MOVW RO DETAIL : 
13 11 000CD BRB 18$ : 
219% BF : 1 OOOCF 16$ CMP (Re), #8596 : 
2 00004 BNEQ 17 ; 
54 19 gf 06 MNEGB #25, CODE ; 
07 D BRB 18$ ; 
54 19 8 DB 17$:  MNEGB #25, CODE F 
57 04 Ag D MOVW 4(R2), DETAIL ; 
5 C OOOE2 18$: MOVZWL (R2), TEXT ; 
5 4 88 000ES 19$:  BISB2 #4, FLAGS ; 
3 D4 OO0E 08: CLRL STATUS ; 
68 EA 21$:  MOVL FLAGS, MOMSAB_MSGBLOCK : 
06 =A 4 ED MOVB CODE, MOMSAB_ASGBLOCK+4 : 
08 A 7 8B Fi MOVW DETAIL, MOMSAB_MSGBLOCK+8 ; 
oC A $ D OOF > MOVL TEXT, MOMS$AB_MSGBLOCK+12 ; 
5 D F MOVL STATUS, RO ; 
04 OO0FC RET ; 


; Routine Size: 253 bytes, Routine Base: SCODE$ + 0198 
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ZSBTTL ‘mom_mapentit Map NETACP database ID into entity type’ 
ROUTINE mom “papentity (database) = loses 


§ee 


FUNCTIONAL DESCRIPTION: 


This routine translates the Q10 database ID into a network 
management entity detail code. 


' 
' 
i 
i INPUTS: 

DATABASE NETACP database ID 
1 

! 


o_o 


—— 
MEUM SO OONOuUSunN— DONO AP UN —OSRUED 


i OUTPUTS: 
i The return value is the detail code. 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
BEGIN 
LOCAL 

detail : WORD; 


detail = 
SELECTONE -database OF 


nfb$c_db yee nma$c_ent_Lin; 
C(nfb$c_db_l 
nfb$c_db erie nma$c_ent_nod; 
Cnfb$c_db_criJ: nma$c_ent_cir; 
Cnfb$c_db_ajiJ: nma$c_ent_nod; 
1; 


COTHERWISE): 
TES); 

RETURN .detail 

END; ! End of mom_mapentity 


0000 00000 MOM_MAPENTITY: 
WORD 


a Save nothin 3 

38 06 ac OD MOVL DATABASE, ; 
? CMPL RO. a5 3 

BNEQ 1 3 

50 1 MOVL #1, RO 3 
f BRB 6 3 

be ? 1$: TSTL R ; 

1 BLEQ 2 3 


z | 


you-b00 oa fs Fy, mg NETACP database ID into i “$20-1 944 93:22 39 DL EKSVMERAST ERSCMOR SRC MOMACP10.832; PT 66 vi 
" 20 Ce 
04 ; ? ; 2s ea 4 » 0532 
50 nove 4 - RO 
13 ‘ if 3$ CMPL RO, #19 
BNEQ 5 
§ FT Boos, kee cS 
deb $008 SE: Rat te a 
0 1 008 : MOVZUL RO; er ARO $320 
04 000 RET 0542 


; Routine Size: 54 bytes, Routine Base: S$CODES + 0298 
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P10 MOM Network 1/0 module -$ep-1984 01:59:39 VAX-11 Bliss-32 V4.0-74 Pp 9 
¥O0-000 mom_mapparamid “Map Q10 parameter ID into m 12-808-1 382 9 29:33 DI SKSVMGHASTERSCMOM SRC SMOMACPIO.B32047" x 


1 ZSBTTL_ ‘mom_mapparamid Map Q10 pereneter ID into management code’ | 
1 ROUTINE mom_mapparamid (netacp_param_id) = 


rs 
Oo 


lee 
FUNCTIONAL DESCRIPTION: 


This routine translates the NETACP QI10 parameter ID code into network 
management parameter code. 


SS SEAR 


INPUTS: 
NETACP_PARAM_ID NETACP NFB ID for parameter. Returned in 
errors. 
63 
6 OUTPUTS: 


i 
' 

i 

i 

i 

second longword of I10SB for some ACP Q10 
] 

i 

i 

i 

i 


The return value is the detail code. 


PUP PUPVSUPUSUSISUSISISISISISISIIIIS 


PEAEXAPXQEDMAA I PLE 


SOOoQoooocoooooooooo0°oo 
MAMMA AMAIA UU 
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BEGIN 
MAP 


MEAN (QO OODNAL EW -OOOVNOUSw 


netacp_param_id: BBLOCK; 
INCR svd_index FROM 0 TO svd$c_entry_count DO 
BEGIN 


IF .mom$ab_service_data C.svd_index, svd$l_nfb_id] 
L .netacp goreeve THEN 
a RETURN .mom$ab_service_data [.svd_index, svd$w_nice_idJ; 


i] 
! The potent doesn't map to any NICE parameter. Simply return 


SS IIa assent 


DUP PUP SVP ASA SAINI 


oN 


4 
5 
4 $ a null parameter value. 
84 8 2 RETURN -1; 
85 9 
86 0 END; ! End of mom_mapparamid 
0000 00000 MOM_MAPPARAMID: 
-WORD Save nothin ; 0544 
50 7 CF $008 RINE GL a. SVD_ INDEX ; 0570 
51 50 90000089 F ¢3 $00 1$: MULL3. #137, SVD_INDEX, R1 > 0569 
000000060041 9F 00 F PUSHAB MOMSAB_SERVICE_OATACR1) : 0570 
04 Ac 3 p} 16 CPL @(SP)+> NETACP~PARAM_ID : 
0000000060041 9F a0i¢ PUSHAB MOMSAB_SERVICE_DATA+4(R1) : 0571 
0 9E ¢ poyeut a(SP)+, RO : 
D8 50 000000006 ar F3 000 ; 28: AOBLEQ #SVDSC_ENTRY_COUNT, SVD_INDEX, 1% : 0567 
" §E 900% pee Bie : 0880 


-_ 


yoe-000” sen.nasperenié’ Aap G10 pereneter 19 inte « if: se9- 1984 93:22:33 DEEKSUmemASTeRscMonCsecSmomacrro.e3203%° «9S 


; Routine Size: 51 bytes, Routine Base: SCODES + O2CE 


: an Ties 718. 
: phn fines 00:45.1 
; Lines/CPU Min: ier 
; ponsave Wie! 10881 


: conor gttion’ Complete 


ACPIO MOM Network 1/0 module 1b-se -Sep-1984 01:59: VAX-11 Bliss-32_V 1 
yoe~000 mom_mapparamid Map Q10 parameter ID into m 1 aes Y 93:23:38 DISK $ymgh TER: choi” OSRCIMOMACPIO. B32; rye B) 
' 
6 ee ! END ! End of module 
5 0 ELUDOM 
-EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 
SOWNS 64 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 769 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS 44 NOVEC, NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Senge el Symbols eooe---- Pages Processing 
File ? Total Loaded Percent Mapped Time 
55$DUA28: reat sy tetrnty tat Th 194 25 12 21 00:00.1 
S$DUAZB: SHRL IBINMALIBRY <i 231 887 12 1 47 00:00.¢ 
5$0UA28: CSHRLIBINET.L32;1 1279 7? 0 63 00:00. 
S$DUA28: CSYSLIBISTARLET.L32;1 9776 17 0 581 00:03.1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:MOMACPIO/OBJ=OBJ$:MOMACPIO MSRC$:MOMACPIO/UPDATE=(ENHS:MOMACPIO) 
769 code + 108 data bytes 


Used: 157 pages 


Library Statistics 
} 
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